home *** CD-ROM | disk | FTP | other *** search
/ Serving Financial Service…olutions Suite 1994 Fall / Serving Financial Services Solutions Suite 1994 Fall.iso / Apps / FirstClass / Tailor.app / texps.data < prev    next >
Text File  |  1994-12-12  |  707b  |  133 lines
  1. %! Adobe packPS Version 2.0 (9)
  2.  
  3. (* TeXps prologue - 26may94 *\n)
  4. print
  5. /TeXDict
  6. where
  7. {
  8. pop
  9. TeXDict
  10. begin
  11. /rf
  12. load
  13. 0
  14. get
  15. type
  16. /integertype
  17. ne
  18. {
  19. /rf
  20. {
  21. findfont
  22. dup
  23. length
  24. 1
  25. add
  26. dict
  27. begin
  28. {1
  29. index
  30. /FID
  31. ne
  32. 2
  33. index
  34. /UniqueID
  35. ne
  36. and{def}{pop
  37. pop}ifelse}
  38. forall
  39. [1
  40. index
  41. 0
  42. 6
  43. -1
  44. roll
  45. exec
  46. 0
  47. exch
  48. 5
  49. -1
  50. roll
  51. VResolution
  52. Resolution
  53. div
  54. mul
  55. neg
  56. 0
  57. 0]
  58. /Metrics
  59. exch
  60. def
  61. dict
  62. begin
  63. Encoding
  64. {
  65. exch
  66. dup
  67. type
  68. /integertype
  69. ne
  70. {
  71. pop
  72. pop
  73. 1
  74. sub
  75. dup
  76. 0
  77. le{pop}{[}ifelse
  78. }{
  79. FontMatrix
  80. 0
  81. get
  82. div
  83. Metrics
  84. 0
  85. get
  86. div
  87. def
  88. }
  89. ifelse
  90. }
  91. forall
  92. Metrics
  93. /Metrics
  94. currentdict
  95. end
  96. def
  97. [
  98. 2
  99. index
  100. currentdict
  101. end
  102. definefont
  103. 3
  104. -1
  105. roll
  106. makefont
  107. /setfont
  108. load
  109. ]
  110. 0
  111. get
  112. {0
  113. setfont}
  114. 2
  115. array
  116. copy
  117. dup
  118. 3
  119. -1
  120. roll
  121. 0
  122. exch
  123. put
  124. cvx
  125. def
  126. }
  127. def
  128. }
  129. if
  130. end
  131. }
  132. if
  133.